 
%WinBUGS wavelets
clear all
close all


  disp('DRAMChip Example')
  lw = 2; 
  set(0, 'DefaultAxesFontSize', 16);
  fs = 15;
  msize = 5;
  
 figure(1)


 x = 0:0.01:1;
 y = (10/21)*exp(-x*10)+(40/21)*exp(-x*2);
 z = 2*exp(-2*x);
 plot(x,y,'k-', 'linewidth',lw)
 hold on
 plot(x,z,'k--','linewidth',lw)
 legend('Mixture','Exponential E(2)')
 print -deps 'C:\NPBook\ProbBasics\DRAMChip.eps'